home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / lang / PPCsmalltalk.lha / PPCSmallTalk / prelude / interval.p < prev    next >
Text File  |  1986-10-19  |  2KB  |  64 lines
  1. temp <- <primitive 110 13 >
  2. <primitive 112 temp 1        " shallowCopy " \
  3.     #( #[ 16 17 18 212 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " deepCopy " \
  7.     #( #[ 16 17 18 212 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " removeKey:ifAbsent: " \
  11.     #( #[ 32 48 188 242 34 165 243 245] \
  12.     #( 'cannot remove from Interval'  ) ) >
  13.  
  14. <primitive 112 temp 4        " add: " \
  15.     #( #[ 32 48 188 243 245] \
  16.     #( 'cannot store into Interval'  ) ) >
  17.  
  18. <primitive 112 temp 5        " at:put: " \
  19.     #( #[ 32 48 188 243 245] \
  20.     #( 'cannot store into Interval'  ) ) >
  21.  
  22. <primitive 112 temp 6        " coerce: " \
  23.     #( #[ 33 174 243 245] \
  24.     #(  ) ) >
  25.  
  26. <primitive 112 temp 7        " printString " \
  27.     #( #[ 48 16 169 11 17 49 11 17 17 169 11 17 50 11 17 \
  28.  18 169 11 17 243 245] \
  29.     #( 'Interval ' ' to ' ' by '  ) ) >
  30.  
  31. <primitive 112 temp 8        " at:ifAbsent: " \
  32.     #( #[ 16 18 33 81 193 194 192 115 32 35 11 31 247 3 35 \
  33.  248 3 242 34 165 243 245] \
  34.     #(  ) ) >
  35.  
  36. <primitive 112 temp 9        " next " \
  37.     #( #[ 19 18 192 99 32 19 11 31 247 1 19 243 245] \
  38.     #(  ) ) >
  39.  
  40. <primitive 112 temp 10        " first " \
  41.     #( #[ 16 99 32 19 11 31 247 1 19 243 245] \
  42.     #(  ) ) >
  43.  
  44. <primitive 112 temp 11        " inRange: " \
  45.     #( #[ 18 170 247 10 33 16 203 252 3 33 17 200 248 9 242 \
  46.  33 17 203 252 3 33 16 200 243 245] \
  47.     #(  ) ) >
  48.  
  49. <primitive 112 temp 12        " size " \
  50.     #( #[ 18 170 247 5 17 16 199 248 4 242 16 17 199 247 3 \
  51.  80 248 9 242 17 16 193 18 11 18 81 192 243 245] \
  52.     #(  ) ) >
  53.  
  54. <primitive 112 temp 13        " from:to:by: " \
  55.     #( #[ 33 241 96 99 34 97 35 98 245] \
  56.     #(  ) ) >
  57.  
  58. <primitive 98 #Interval \
  59.     <primitive 97 #Interval #SequenceableCollection #Smalltalk:prelude/interval.st \
  60.     #(  #lower #upper #step #current ) \
  61.     #( #shallowCopy #deepCopy #removeKey:ifAbsent: #add: #at:put: #coerce: #printString #at:ifAbsent: #next #first #inRange: #size #from:to:by:  ) \
  62.     temp 4 5 > >
  63.  
  64.